home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 045a / maptdi.zip / MAPTDISK.BAT < prev    next >
DOS Batch File  |  1991-11-21  |  3KB  |  122 lines
  1. @ECHO off
  2. REM      Sets the DOS environment variable "TempDisk" to the next
  3. REM      available drive for mapping or search drive allocation and maps
  4. REM      it to the directory indicated by the single command line argument.
  5. REM      This variable may be used later by "DelTDisk" to delete the mapping.
  6.         NextDriv
  7.          IF ERRORLEVEL 26 GOTO NoCanDo
  8.          IF ERRORLEVEL 13 GOTO GT12
  9.          IF ERRORLEVEL 12 GOTO E12
  10.          IF ERRORLEVEL 11 GOTO E11
  11.          IF ERRORLEVEL 10 GOTO E10
  12.          IF ERRORLEVEL 9 GOTO E9
  13.          IF ERRORLEVEL 8 GOTO E8
  14.          IF ERRORLEVEL 7 GOTO E7
  15.          IF ERRORLEVEL 6 GOTO E6
  16.          IF ERRORLEVEL 5 GOTO E5
  17.          IF ERRORLEVEL 4 GOTO E4
  18.          IF ERRORLEVEL 3 GOTO E3
  19.          IF ERRORLEVEL 2 GOTO E2
  20.          IF ERRORLEVEL 1 GOTO E1
  21.          IF ERRORLEVEL 0 GOTO E0
  22. :GT12
  23.          IF ERRORLEVEL 25 GOTO E25
  24.          IF ERRORLEVEL 24 GOTO E24
  25.          IF ERRORLEVEL 23 GOTO E23
  26.          IF ERRORLEVEL 22 GOTO E22
  27.          IF ERRORLEVEL 21 GOTO E21
  28.          IF ERRORLEVEL 20 GOTO E20
  29.          IF ERRORLEVEL 19 GOTO E19
  30.          IF ERRORLEVEL 18 GOTO E18
  31.          IF ERRORLEVEL 17 GOTO E17
  32.          IF ERRORLEVEL 16 GOTO E16
  33.          IF ERRORLEVEL 15 GOTO E15
  34.          IF ERRORLEVEL 14 GOTO E14
  35.          IF ERRORLEVEL 13 GOTO E13
  36. :NoCanDo
  37.         ECHO:
  38.         ECHO No free drives are availible for mapping
  39.         ECHO:
  40.         BEEP 2
  41.         SET TempDisk=NONE
  42.         GOTO bail
  43. :E25
  44.         SET TempDisk=Z
  45.         GOTO done
  46. :E24
  47.         SET TempDisk=Y
  48.         GOTO done
  49. :E23
  50.         SET TempDisk=X
  51.         GOTO done
  52. :E22
  53.         SET TempDisk=W
  54.         GOTO done
  55. :E21
  56.         SET TempDisk=V
  57.         GOTO done
  58. :E20
  59.         SET TempDisk=U
  60.         GOTO done
  61. :E19
  62.         SET TempDisk=T
  63.         GOTO done
  64. :E18
  65.         SET TempDisk=S
  66.         GOTO done
  67. :E17
  68.         SET TempDisk=R
  69.         GOTO done
  70. :E16
  71.         SET TempDisk=Q
  72.         GOTO done
  73. :E15
  74.         SET TempDisk=P
  75.         GOTO done
  76. :E14
  77.         SET TempDisk=O
  78.         GOTO done
  79. :E13
  80.         SET TempDisk=N
  81.         GOTO done
  82. :E12
  83.         SET TempDisk=M
  84.         GOTO done
  85. :E11
  86.         SET TempDisk=L
  87.         GOTO done
  88. :E10
  89.         SET TempDisk=K
  90.         GOTO done
  91. :E9
  92.         SET TempDisk=J
  93.         GOTO done
  94. :E8
  95.         SET TempDisk=I
  96.         GOTO done
  97. :E7
  98.         SET TempDisk=H
  99.         GOTO done
  100. :E6
  101.         SET TempDisk=G
  102.         GOTO done
  103. :E5
  104.         SET TempDisk=F
  105.         GOTO done
  106. :E4
  107.         SET TempDisk=E
  108.         GOTO done
  109. :E3
  110.         SET TempDisk=D
  111.         GOTO done
  112. :E2
  113.         SET TempDisk=C
  114.         GOTO done
  115. :E1
  116.         SET TempDisk=B
  117.         GOTO done
  118. :E0
  119.         SET TempDisk=A
  120. :Done
  121.         MAP %TempDisk%:=%1% > NUL > NUL
  122. :Bail